home *** CD-ROM | disk | FTP | other *** search
/ Chip 2011 November / CHIP_2011_11.iso / Programy / Inne / Gry / Carnage_Contest / scripts / CC Original / movement / Swap.lua < prev    next >
Text File  |  2010-09-02  |  3KB  |  88 lines
  1. --------------------------------------------------------------------------------
  2. -- Weapon Swap
  3. -- Original Carnage Contest Weapon
  4. -- Script by DC, September 2010, www.UnrealSoftware.de
  5. --------------------------------------------------------------------------------
  6.  
  7. -- Setup Tables
  8. if cc==nil then cc={} end
  9. cc.swap={}
  10.  
  11. -- Load & Prepare Ressources
  12. cc.swap.gfx_wpn=loadgfx("weapons/rc.bmp")                                    -- Weapon Image
  13. setmidhandle(cc.swap.gfx_wpn)
  14. cc.swap.gfx_icon=loadgfx("weapons/swap.png")                                -- Weapon Icon
  15. setmidhandle(cc.swap.gfx_icon)
  16. cc.swap.sfx_superteleport=loadsfx("teleport.wav")                            -- Weapon superteleport
  17.  
  18. --------------------------------------------------------------------------------
  19. -- Weapon: Swap
  20. --------------------------------------------------------------------------------
  21.  
  22. cc.swap.id=addweapon("cc.swap","Swap",cc.swap.gfx_icon,0) -- Add Weapon (0 uses)
  23.  
  24. function cc.swap.draw()                                                        -- Draw
  25.     if weapon_shots==0 then
  26.         setblend(blend_alpha)
  27.         setalpha(1)
  28.         setcolor(255,255,255)
  29.         drawinhand(cc.swap.gfx_wpn,7,0)
  30.         -- HUD Positioning
  31.         hudinfo("Click a player to swap positions!")
  32.         hudpositioning(pos_invisible)
  33.     end
  34. end
  35.  
  36. function cc.swap.attack(attack)                                                -- Attack
  37.     if (weapon_shots<=0) and (weapon_position==1) then
  38.         if collision(colplayer,weapon_x,weapon_y,0,1,0)>0 then
  39.             if playercollision()>0 and playercollision()~=playercurrent() then
  40.                 -- Use weapon and allow to use another one afterwards (1)
  41.                 useweapon(1)
  42.                 weapon_shots=weapon_shots+1
  43.                 -- Get Position 1
  44.                 weapon_x=getplayerx(playercollision())
  45.                 weapon_y=getplayery(playercollision())
  46.                 -- Get Position 2
  47.                 oldx=getplayerx(0)
  48.                 oldy=getplayery(0)
  49.                 -- FX
  50.                 playsound(cc.swap.sfx_superteleport)
  51.                 for i=1,2,1 do
  52.                     if i==1 then
  53.                         x=oldx
  54.                         y=oldy+3
  55.                     else
  56.                         x=weapon_x
  57.                         y=weapon_y+3
  58.                     end
  59.                     particle(p_muzzle,x,y)
  60.                     particlesize(1,1)
  61.                     particlecolor(255,200,50)
  62.                     particlealpha(1.0)
  63.                     particlefadealpha(0.01)
  64.                     particle(p_muzzle,x,y)
  65.                     particlesize(1,3)
  66.                     particlecolor(255,200,50)
  67.                     particlealpha(1.0)
  68.                     particlefadealpha(0.02)
  69.                     particlerotation(0)
  70.                     for j=1,10,1 do
  71.                         particle(p_flare,x-10.0+math.random()*20.0,y+math.random()*10.0)
  72.                         particlesize(3.0,3.0)
  73.                         particlecolor(255,200,50)
  74.                         particlespeed(0,math.random(1,3)*-1.0)
  75.                         particlefadealpha(0.01)
  76.                     end
  77.                 end
  78.                 -- Swap Positions
  79.                 playerposition(0,weapon_x,weapon_y)
  80.                 playerposition(playercollision(),oldx,oldy)
  81.             else
  82.                 weapon_position=0
  83.             end
  84.         else
  85.             weapon_position=0
  86.         end
  87.     end
  88. end